mod1_left <- lm(
    politics + social_justice ~ I(tweet_date >= "2016-10-01"),
    subset(ordered_docs, !is.na(politics) & account_category=="LeftTroll")
)
mod2_left <- lm(
(politics > 0.5) | (social_justice > 0.5) ~ I(tweet_date >= "2016-10-01"),
subset(ordered_docs, !is.na(politics) & account_category=="LeftTroll")
)
mod1_right <- lm(
    politics + social_justice ~ I(tweet_date >= "2016-10-01"),
    subset(ordered_docs, !is.na(politics) & account_category=="RightTroll")
)
mod2_right <- lm(
(politics > 0.5) | (social_justice > 0.5) ~ I(tweet_date >= "2016-10-01"),
subset(ordered_docs, !is.na(politics) & account_category=="RightTroll")
)

cat("\n#### ####")
cat("\n#### Table 1\n")
stargazer::stargazer(
    mod1_left,
    mod2_left,
    mod1_right,
    mod2_right,
    star.cutoffs = c(0.05, 0.01, 0.001),
    type="latex",
    omit.stat=c("ser","f","adj.rsq", "rsq"),
    ci=T,
    digits=2, report=('vcsp')
)
